home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS Mega ASM (19xx)(-).d64 / list8-5 < prev    next >
Text File  |  2019-04-13  |  2KB  |  85 lines
  1.      n     "VLIR2-Mod D.obj"
  2.      if .p
  3.      t     "Listing_8.1.ext"
  4.      t     "TopSym"
  5.      t     "TopMac"
  6.      endif
  7.  
  8.      o     ModStart
  9.      ; Sprungtabelle:
  10.      jmp     [ndern
  11.      jmp     Anf}gen
  12.      jmp     L|schen
  13.      jmp     Weiter
  14.      jmp     Zur}ck
  15.  
  16. :[ndern     jsr     GotoFirstMenu
  17. :[ndern2     lda     mouseOn
  18.      and     #%10011111     ; Men}s&Icons inaktivieren
  19.      sta     mouseOn
  20.      LoadW     r0,A_Name
  21.      LoadW     r11,80
  22.      LoadB     r1H,44
  23.      LoadB     r2L,30
  24.      LoadW     keyVector,:done
  25.      jmp     GetString
  26. ::done     LoadW     r0,A_Nummer
  27.      LoadW     r11,80
  28.      LoadB     r1H,74
  29.      LoadB     r2L,20
  30.      LoadW     keyVector,:done2
  31.      jmp     GetString
  32. ::done2     lda     mouseOn
  33.      ora     #%01100000 ;Men}s&Icons wieder aktivieren
  34.      sta     mouseOn
  35.      rts
  36.  
  37. :Anf}gen     jsr     GotoFirstMenu
  38.      LoadW     r7,A_Name     ; aktl. Daten speichern
  39.      LoadW     r2,52
  40.      jsr     WriteRecord
  41.      jsr     AppendRecord     ; Datensatz anh{ngen
  42.      jsr     ClearEntry
  43.      LoadW     r7,A_Name     ; leere Daten speichern
  44.      LoadW     r2,52
  45.      jsr     WriteRecord
  46.      jsr     DispEntry
  47.      jmp     [ndern2
  48.  
  49. :L|schen     jsr     GotoFirstMenu
  50.      jsr     DeleteRecord     ; aktl Daten l|schen
  51.      LoadW     r7,A_Name     ; Daten lesen
  52.      LoadW     r2,52
  53.      jsr     ReadRecord
  54.      lda     curRecord
  55.      bpl     :10
  56.      jsr     AppendRecord
  57.      jsr     ClearEntry
  58.      LoadW     r7,A_Name
  59.      LoadW     r2,52
  60.      jsr     WriteRecord
  61. ::10     jmp     DispEntry
  62.  
  63. :Weiter     LoadW     r7,A_Name     ; aktl. Daten speichern
  64.      LoadW     r2,52
  65.      jsr     WriteRecord
  66.      jsr     NextRecord     ; n{chster Datensatz
  67.      LoadW     r7,A_Name     ; neue Daten lesen
  68.      LoadW     r2,52
  69.      jsr     ReadRecord
  70.      jmp     DispEntry
  71.  
  72. :Zur}ck     LoadW     r7,A_Name     ; aktl. Daten speichern
  73.      LoadW     r2,52
  74.      jsr     WriteRecord
  75.      jsr     PreviousRecord      ; vorheriger Datensatz
  76.      LoadW     r7,A_Name     ; neue Daten lesen
  77.      LoadW     r2,52
  78.      jsr     ReadRecord
  79.      jmp     DispEntry
  80. :ClearEntry
  81.      jsr     i_FillRam     ; Eintrag l|schen
  82.      w     52,A_Name
  83.      b     0
  84.      rts